home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Applications / gdbm-1.7.3 / source / close.c < prev    next >
Text File  |  1994-05-21  |  2KB  |  56 lines
  1. /* close.c - Close the "original" style database. */
  2.  
  3. /*  This file is part of GDBM, the GNU data base manager, by Philip A. Nelson.
  4.     Copyright (C) 1993  Free Software Foundation, Inc.
  5.  
  6.     GDBM is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; either version 2, or (at your option)
  9.     any later version.
  10.  
  11.     GDBM is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with GDBM; see the file COPYING.  If not, write to
  18.     the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20.     You may contact the original author by:
  21.        e-mail:  phil@cs.wwu.edu
  22.       us-mail:  Philip A. Nelson
  23.                 Computer Science Department
  24.                 Western Washington University
  25.                 Bellingham, WA 98226
  26.        
  27.     The author of this file is:
  28.        e-mail:  downsj@csos.orst.edu
  29.  
  30. *************************************************************************/
  31.  
  32.  
  33. /* include system configuration before all else. */
  34. #include "autoconf.h"
  35.  
  36. #include "gdbmdefs.h"
  37. #include "extern.h"
  38.  
  39.  
  40. /* it's unclear whether dbmclose() is *always* a void function in old
  41.    C libraries. we use int, here. */
  42.  
  43. int
  44. dbmclose()
  45. {
  46.   if (_gdbm_file != NULL)
  47.     {
  48.       gdbm_close (_gdbm_file);
  49.       _gdbm_file = NULL;
  50.       if (_gdbm_memory.dptr != NULL) free(_gdbm_memory.dptr);
  51.       _gdbm_memory.dptr = NULL;
  52.       _gdbm_memory.dsize = 0;
  53.     }
  54.   return (0);
  55. }
  56.